﻿Imports Microsoft.VisualBasic

Namespace CodeMatrix.Presentation

    Public Class ProfileManual
        Inherits System.Web.Profile.ProfileBase

        Public Overridable Property IPAddress() As String
            Get
                Return CType(Me.GetPropertyValue("IPAddress"), String)
            End Get
            Set(ByVal value As String)
                Me.SetPropertyValue("IPAddress", value)
            End Set
        End Property

        Public Overridable Property group_user_type() As Integer
            Get
                Return CType(Me.GetPropertyValue("group_user_type"), Integer)
            End Get
            Set(ByVal value As Integer)
                Me.SetPropertyValue("group_user_type", value)
            End Set
        End Property

        Public Overridable Property staff_no() As String
            Get
                Return CType(Me.GetPropertyValue("staff_no"), String)
            End Get
            Set(ByVal value As String)
                Me.SetPropertyValue("staff_no", value)
            End Set
        End Property

        Public Overridable Property staff_code() As Integer
            Get
                Return CType(Me.GetPropertyValue("staff_code"), Integer)
            End Get
            Set(ByVal value As Integer)
                Me.SetPropertyValue("staff_code", value)
            End Set
        End Property

        Public Overridable Function GetProfile(ByVal username As String) As ProfileCommon
            Return CType(ProfileBase.Create(username), ProfileCommon)
        End Function
    End Class

End Namespace

